(tags-query-replace): Pass t for NOERROR to query-replace-read-args.

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index c0613881db0af819dd80a78240d95d8bf3592b7a..15153029c333d89be5ed835d85f6bcdfbca2015b 100644 (file)
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1733,7 +1733,7 @@ If you exit (\\[keyboard-quit], RET or q), you can resume the query replace
 with the command \\[tags-loop-continue].
 
 See documentation of variable `tags-file-name'."
-  (interactive (query-replace-read-args "Tags query replace (regexp)" t))
+  (interactive (query-replace-read-args "Tags query replace (regexp)" t t))
   (setq tags-loop-scan `(let ,(unless (equal from (downcase from))
                                '((case-fold-search nil)))
                          (if (re-search-forward ',from nil t)